turbo pascal ```求救..高手进

来源：百度知道 编辑：UC知道 时间：2024/05/24 06:38:49
1、甲乙丙丁戊五个人在运动会上分获百米、二百米、跳高、跳远和铅球冠军，有四个人猜测比赛结果：
A说：乙获铅球冠军，丁获跳高冠军。
B说：甲获百米冠军，戊获跳远冠军。
C说：丙获跳远冠军，丁获二百米冠军。
D说：乙获跳高冠军，戊获铅球冠军。
其中每个人都只说对一句，说错一句。求五人各获哪项冠军。

program Champions;
var a1,a2,a3,a4,a5:integer;
sum:integer;

function intToStr(s:integer):string;
var x:string;
begin
case s of
1:x:='Jia';
2:x:='Yi';
3:x:='Bing';
4:x:='Ding';
5:x:='Wu';
end;
intToStr:=x;
end;

procedure PrintResult;
begin
writeln('Answer #',sum,':');
writeln('100m:',intToStr(a1));
writeln('200m:',intToStr(a2));
writeln('TiaoGao:',intToStr(a3));
writeln('TiaoYuan:',intToStr(a4));
writeln('QianQiu:',intToStr(a5));
writeln;
end;

begin
sum:=0;
for a1:=1 to 5 do
for a2:=1 to 5 do
for a3:=1 to 5 do
for a4:=1 to 5 do
for a5:=1 to 5 do begin
if [a1,a2,a3,a4,a5]=[1..5] then
if ((